home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ar.arc / ALLBAL.PRG < prev    next >
Encoding:
Text File  |  1985-10-17  |  1.2 KB  |  64 lines
  1. ************************************* (B:ALLBAL.PRG)
  2. CLEAR
  3. @ 13,1 SAY 'Do you want to proceed?'
  4. ?
  5. STORE ' ' TO OPTION
  6. WAIT ' ?  ' TO OPTION
  7. IF OPTION<>'Y'
  8. RETURN
  9. ENDIF
  10. CLEAR
  11. STORE 0 TO COUNTR
  12. STORE 0 TO XCOUNT
  13. USE B:CUST INDEX B:ACCT
  14. COUNT TO COUNTR
  15. GO TOP
  16. SET EXACT ON
  17. SET TALK ON
  18. MACCT='    '
  19. MNAME='                              '
  20. ACCEPT 'Start with what account number? ' TO MACCT
  21. DO WHILE .NOT. EOF()
  22. STORE XCOUNT+1 TO XCOUNT
  23. FIND &MACCT
  24. STORE NAME TO MNAME
  25. CLEAR
  26. @ 1,3 SAY "I'm looking at "
  27. @ 1,18 SAY MNAME
  28. @ 3,17 SAY STR(XCOUNT,3,0)
  29. @ 3,24 SAY 'of'
  30. @ 3,28 SAY STR(COUNTR,3,0)
  31. USE B:INV
  32. COPY TO B:TEMP FOR ACCT = MACCT
  33. USE B:TEMP
  34. STORE 0 TO NUMB
  35. COUNT TO NUMB
  36. GO TOP
  37. MNET=0.00
  38. OVER30=0.00
  39. OVER45=0.00
  40. OVER60=0.00
  41. SET TALK ON
  42. IF NUMB>0
  43. @ 1,3 SAY "I'm working on "
  44. SUM NET FOR ACCT = MACCT TO MNET
  45. SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 60 TO OVER30
  46. SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 75 TO OVER45
  47. SUM NET FOR ACCT = MACCT .AND. NEWDATE <= DATE() - 90 TO OVER60
  48. ENDIF
  49. USE B:CUST INDEX B:ACCT
  50. FIND &MACCT
  51. IF NUMB>0
  52. REPLACE NET WITH MNET
  53. REPLACE OLD_30 WITH OVER30
  54. REPLACE OLD_45 WITH OVER45
  55. REPLACE OLD_60 WITH OVER60
  56. ENDIF
  57. SET TALK OFF
  58. SKIP +1
  59. STORE ACCT TO MACCT
  60. ENDDO
  61. RETURN
  62.  
  63.  
  64.